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itle 
-ident /V04-000/ 


MARAAAAAARAAAAALALALALALISE SELES RES EEE EES E SEES EEE SESE EEE SESE SECC EEE 


a 
i 4; 
| 5 i 
Py & 
0 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
| 000 8 3* DIGITAL EQUIPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. * 
44 1% :* ALL RIGHTS RESERVED. * 
e A 
| 0000 11 ;* THIS SOFTWARE se cyan ence meee A LICENSE AND MAY BE USED AND COPIED * 
4 i ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bic CENSE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE sre NOTICE. THIS soft WARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
B88 1 :* TRANSFERRED. * 
o a 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE % 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 31 :* CORPORATION. * 
P+ & 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 ? :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
5 * 
0000 5 ;* . 
444 § FERRARA AAA EA AEA AREER RAKE KETAKAKEKERAAAKeKeReeeReRetereeeeereeereeee 
464 ss ; Facility: system bootstrapping 
44 : Abstract: CONIO provides basic console read, readprompt and write facilities. 
9000 gi : Author: Richard I. Hustvedt, creation date: 27-apr-1978 
9000 3 | : Modified by: 
464 36 v03-002 wHM0001 Bill Matthews 99-Jul-84 
9000 38 : Add generalized alternate console terminal support 
9000 40 : v03-001 DNC0001 David N. Cutler 29-Dec-83 
9000 4g : Add support for QVSS as the console terminal on MicroVax 1. 
00 44 Include files: 
Boss eg inclu 
0000 6 
0000 4 Spordef : define processor registers 
44 48 $ssdef : define status code values 
000 49 
$333 19: ceuted systole 
3: Equate mbols: 
Be hg eos 
000000D 0000 3 = 13 ; character code for corr tage return 
000000A it 5 tt zs 1 3; character code for line feed 
; 0001 0 § control_u = 21 ; character code for control-u 
000001 000 control-s = 19 3 control s (xoff) 


————_—__—_—_ howe 
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‘Yoe~000 seem 5 wigee eneage tye. aioe 33:68:99 ¥Boots. Re CONIO.MAR; 1 
0000011 0000 38 controi_q = 17 ; control q (xon) 
000007F 0000 5 rubout = 127 ; character code for rubout 
00000000 0000 60 virub = 0 ; rubout sequence in progress 


tog * 


: 
000 
000 
000 
000 
0000 
44 
000 
000 
0000 
0000 
0000 
00000004 44 
0000 
00000008 44 
0000 
0000 
0000 
0000000C 4464 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00000000 
0314 0000 
58 04 AC DO 0002 
54 04 B08 
50 88 9A 0008 
05 13 site 
0075 30 000D 
F611 O02 
52. 08 AC QA Ont 
60 13 B18 
59 OC AC DO 001 
89 94 Q01C 
02 2s F5 ais 
4 11 ; 
O8F 0 3 
58 28 90 F 6 
8 F 8F 1 B 
7 2 F 
58 79 9A 0051 


81 
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-Sbttl booSreadprompt = prompt and read input string 


boo$readprom 


console 
If zero 


t outputs the specified asciz 


rompt string on the 


oratenl then checks the count of charesters to be read. 


t exits, o 


therwise it reads the console terminal until 


either a gece loge return is encountered or the character count 
fied. he 


is satis 
string ¢ 
terminat 


callx 
paramete 


prompt(a 
prompt 


size(ap) 
size 


buf ‘ap) 
buf 


— t 
ing carriag 


Calling sequence: 


arglist,boo 
rs: 

) = 
: 4 


not 


- addr 
12 


Output parameters: 


10$: 
20$: 


30$: 


40$: 


specified buffer is filled with an ascic 
“ Serettere read but not including the 
return. 


$readprompt 


address of asciz prompt string 


3 maximum Length of input string 


e: if size is zero, then nothing is read 
and only the prompt string is written. 


ess of input buffer 


r0 - completion status code (always ss$_normal) 


Buffer located by buf(ap) will be filled with the string 
read as an ascic string. 


$conio,byte 


boo$Sreadprompt, “m<r2,r4,r8,r9> 


prompt (ap), 
r 

(r8)+,r0 
30$ 
con$putchar 
20$ 


size(ap).r2 


conggetehar 
#*x80,r0,°8 
#rubout.r 
-(r9),r8 


r :get prompt string address 
sclear control slope 
sget next output character 
:1f eql none 
soutput character 


zmaximum number of characters to read 
:if eql none 

sset address of input buffer 
sinitialize string count 

sdecrement and test character count 
send of read 


get a character 

clear parity bit 
srubout? 

:if neq no 

:get character to rubout 


Page 


M 4 
= console input output routines 15-SEP-1984 23:48: AX/VMS Macro v04-00 Pa 
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1 4 119 beql 30$ zsif eqi none 
02 54 oS E 6 120 bbes #v_rub,r4,70$ sset Start of rubout sequence 
4 1 A 121 bsbb ou es soutput back slash 
44 «1 ¢ = («4 ¢ 70$: bsbb outr soutput rubbed out character 
526 1 incl r3 gadjust remaining character count 
na-S % : : brb 40$ 3 
02 54 99 —5 7% 1 § 80$: bbcc #v_rub,r4,90$ terminate rubout sequence 
4 10 Ne 1 bsbb outbsish output backslash 
58 15 91 004 128 90S: cmpb #control_u,r8 scontrol u? 
BS 13 0048 129 beql 1 sif eql yes 
03 28 8 4 bed + Bee poe “9 r8,100$ sif clr, then graphic 
A 51 131 bicb a eur sconvert to upper case 
58 D 91 #0054 1 ¢ 100$: czpb fcr, carriage return? 
OC 13 0057 1 beqt 1108 tif eql yes 
52. bd iF 13 tstl rs yany space left in buffer? 
C6 13 0056 135 beql 40$ sif eql no 
+H 10 005D 136 bsbb outr8 secho character 
89 8 90 bbae 1 movb r8,(r9)+ sbuffer new character 
BE 52 F4 Bnee 138 sobgeq r2,40$ sreduce space remaining (always loop) 
58 OD 9A 0065 140 1108: movzbl #cr,r8 ;set carriage return character 
18 10 0068 141 bsbb conSputchar : 
50 OA 9A 006A 186 movzbl #lf,r zsyes send Line feed also 
16 10 Q06D 14 bsbb con$putchar soutput character in r0 
OC AC cs QO6F 144 subl buf fap), r9 scompute character count + 1 
oc Bc 59 = O1 § 0073 145 subb3 #1,°9,abuf (ap) gset actual character count 
50 601 C 0078 146 1208: movzwl #ss$_normal,r0 sreturn normal completion status 
04 0078 147 ret 3 
007C 148 
007C 149 outbslsh: soutput back slash 
50 5C 8F 9A O07C #150 movzbl #*a%\%,r0 zset character code 
03. =i i$ 13) brb con$putchar zand output it 
50 58 9A a082 138 outr8: movzbl r8,r0 :get character to output 
0083 155 con$putchar:: soutput character in r0 
0000. =—s«*51 0088 136 brw w*10$ sconsole terminal output vector 
51 20 DB 0088 158 10$: mfpr sors rxcs,rl sreceiver ready? 
18 51 O7 =+&€1 O08B 159 bbc #7,°T, 308 zsif clr, receiver not ready 
51 21 DB OO8F 160 mfpr #or$_rxdb,ri sread input character. 
13 51 O7 OO ED 9434 161 cmpzv #0,#7,r1,#control_s icontrol-s? 
i We 09 16¢ bneq 308 tif neq no 
51 20 0B 99 1635 208: mfpr aors rucs.rt sreceiver ready? 
F951 O7 +#€1 OO9C 164 bbc #7,rT,208 sif clr, receiver not ready 
51 21 408 pay 165 mfpr #or$_rxdt.ri sread input character 
11 51 07 00 FD OA 166 cmpzv #0,#7,¢1,#control_q jis it a control-q? 
F é AB 16 bneq 20 ino, wait for another character. 
3} $ 0B ~~ 168 30$: mfpr gprs txces,rl stransmitter done? 
9 51 Ei AD 199 bbc #7,cT,30$ sif clr, transmitter not done 
23 50 ODA Bee, 170 ater r0,#pr$_txdb swrite output character 
05 00B4 171 rs sreturn 
085 He 
. or 
5 174 con$getchar:: : ; 
0000 = 31 5 175 brw w*10$ sconsole terminal input vector 
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boo$Sreadprompt = prompt and read input s 4=-SEP-1984 BOOTS. SRCJCONIO.MAR; 1 (1) 
pee 176 
DB 008 177 108: mfpr sors rxcs,r0 sreceiver ready? 
—1 008B 178 bbc #7,70,10$ zif clr, receiver not ready 
DB OOBF 179 + 4 #or$_rxdb,r0 read input character 
05 One 199 rs return 
it 183 con$owncty:: these routines are noops in SYSBOOT 
Bee 13 con$releasecty:: 
05 00Cc 184 rsb 
00c4 3 =-« 185 
00C4 186 .end 
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BOOSREADPROMPT 90000 ORG 02 OPs_cvTHe 
= 
ierine ibsite mg BE 
CONSPUTCHAR $090 Q RG 0 OP$-CVTHL 
eee Beams 8 oe 
CONTROL_S = ae BEY OP$_CVTLF 
spat : Bas eit 
LF = 0000000A OP$~CVTLP 
OP$_ACBD = 00000068 OP$~CVTPL 
OP$~ACBF = 0000004F OP$~CVTPS 
OPS ACER = DOODGEED OPE EVTRDL 
ot = 0000008) oPe-evTRer 
OP$_ADDF = 00000040 OP$_CVTRHL 
OPE TAD DG = DogRLOFD SPST EVTTP 
OP$~ADDG = 000041FD OP$~CVTWD 
ie ttt = BOOSTED Open EVTUG 
OP$-ADOPS = gop9030 ors -CvTWR 
OP$~ASHP = 000000F8 OP$~DIVD 
OP$~CLRD = 0000007¢ OP$ "DIVE 
OP$~CLRF = 00000004 OP$~DIVE 
OPECERN = Doonrere Opecpive 
OPS_ CMPD = 00000071 OP$_DIVH 
OP$~CMPF = 00000051 OP$~DIVH 
OP$~CMPG = 000051FD OP$~DIV 
~CMPH = 000071FD OP$~EDITPC 
iter : oa iiss 
aac : Boas eis 
OP$~CVTBF = 0000004C OPS"MATCHC 
OP$~CVTBG = Q0004CFD OP$~MNEGD 
OP$~CVTBH = QO006CFD OP$ ~MNEGF 
OP$~CVTDB = 00000068 OP$"MNEGG 
erie : Hester ite 
OP$~CVTDL = $000006A OP$~MOVF 
OP$~CVTDW = 00000069 OP$"MOVG 
“CVIFB = 00000048 OP$~MOVH 
OPS~CVTFD = 00000056 2 
“CVTFG = 00099 OP$~MOVTC 
OP$~CVTFH = 000 98D PS$"MOVTUC 
OPS" CVTFL = 90000 4A OP$~MULD 
geceriy : HS oe Rtt 
= 
$~CVIGF 2 0003 FD OP$"MULF 
$~CVTGH = 900 6FD OP$"MULG 
OP$~CVTGL = QO004AFD OP$~MULG 
OPS$~CvT = 000049FD OPS" MULH2 
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OP$_MULH3 = Q00065FD 
P$_MULP = 4h $ 
OP$_POLYD = 4 0 
OP$_POLYF = ' 5 
P$_POLYG = B80 FD 
OP$_POLYH = tha 
OP$_SCANC = 000 oan 
_SKPC = 00000038 
OP$_SPANC = 00000028 
OP$_SUBD2 = Boo nos 
OPe-suBr> = Soooooe 
Ope SURES = §0990048 
ot af = sien 14 
OP$_SUBG = 0000435FD 
OP$_SUBH = S444 4 
OP$_SUBH = 000065FD 
OP$_SUBP4 = 444024 
OP$_SUBP6 = 0000002 
OP$_TSTD = 4 4 dh 
_ISTF = 444 
OP$_TSTG = 000053FD 
TST = 000073FD 
OUTBSLSH 0000007C R 02 
TRB 00000082 R 02 
PRS_RXCS = 00000020 
PRS_RXDB = 00000021 
PRS_TXCS = 4446 C74 
PRS_TXDB = 0000002 
PROMPT = 00000004 
RUBOUT = 0000007F 
SIZE = 00000008 
SS$_NORMAL = 00000001 
0B = 00000000 
ter wen mre nna ma woe e 
: ;_Psect synopsis ! 
PSECT name Allacation PSECT No. Attributes 
. ABS . 00000000 0.) 00 ¢ O.) NOPIC USR CON ABS LCL ee NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 <¢ 0.) 0O1¢ #41.) NOPIC USR CON ABS- LCL NOSH EXE RD WRT NOVEC BYTE 
$CONIO 000000C4 (« 196.) 02 ¢ 2.) NOPIC USR CON’ REL LCL NOSHR EXE RD WRT NOVEC BYTE 
a 
! : Performance indicators ! 
ase age faults ime apse me 
Ph P faul CPU Ti El d Ti 
Initialization 00:00:00.07 00:00:00.39 
zonnene processing 133 00:00:19. 31 0:00: . 
syabol table sort 0 00:00:01. 0:00:02.51 
s 2 54 00:0 03:68 8 BR: B- 7 
Svabol table output 18 0:00:00.14 0:00:00. 34 


—-—_— COC —————ee —E 


| COMO = console input output routines ts 1 mt th 9 $3: 69:08 y 


5 
| VAX=-11 Macro Run Statistics 4- 


Psect synopsis output :00:00. :00:00.0 

Cross-reference output :00:00. :00: 8 

Assembler run totals 70 7:00:18. :00:39. 

The gto, set_Limit was 1650 pages. 

59843 bytes (117 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 865 non-local and 14 local symbols. 
2938 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

136 pages of virtual memory were used to define 135 macros. 


pone eee meee nee emecen seme s + 


! Macro Library statistics H 


ke wware nnn nme manne n eo ecea ee 


Macro Library name Macros defined 
~-$255$DUA28 : (BOOTS .OBJ BOOTS .MLB; 1 
_S¢S5SDUA B here -Ceret 8-8: 
$255$0A28:CSYSLIEISTARLET.MLB; 2 

TOTALS (ali Libraries) 

918 GETS were required to define 6 macros. 


There were no errors, warnings or information messages. 
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BOOTS.SRCJCONIO.MAR; 1 


MACRO/LIS=L1IS$:CONIO/0BJ=OBJ$:CONIO MASDS: CEMULAT.SRCIMISSING/UPDATE=(MASD$: CEMULAT.ENHJMISSING) +MASD$: (BOOTS. SRCJCONIO/UPDATE=(MASD 
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